Garbo/Garbo.cdr/mac/hypercrd/hc2_x/hyperirc.sit/Hyper irc 0.52/background_2599.xml

Extensible Markup Language | 1991-09-30 | 14KB | 428 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>2599</id>
    <filler1>0</filler1>
    <bitmap>BMAP_3901.pbm</bitmap>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_2238.css" />
    <part>
        <id>43</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>130</left>
            <top>209</top>
            <right>331</right>
            <bottom>224</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>bold</textStyle>
        <textHeight>12</textHeight>
        <name>hostName</name>
        <script>on closeFieldput TCPNameToAddr(field "hostName") into field "address"put TCPNameToAddr(field "hostName")end closeFieldon mouseupgo card "Conf"end mouseup</script>
    </part>
    <part>
        <id>26</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>22</left>
            <top>232</top>
            <right>265</right>
            <bottom>248</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>address</name>
        <script></script>
    </part>
    <part>
        <id>7</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>411</left>
            <top>297</top>
            <right>443</right>
            <bottom>326</bottom>
        </rect>
        <style>shadow</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>21700</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Home</name>
        <script>on mouseUpvisual effect iris opengo Homeend mouseUp</script>
    </part>
    <part>
        <id>18</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>367</left>
            <top>297</top>
            <right>399</right>
            <bottom>326</bottom>
        </rect>
        <style>shadow</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>2478</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Home</name>
        <script>on mouseUpvisual effect iris opengo card "info"end mouseUp</script>
    </part>
    <part>
        <id>27</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>208</left>
            <top>248</top>
            <right>265</right>
            <bottom>264</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>port</name>
        <script>on openFieldanswer "Are you sure you know that" &€ field "port" && "is not correct"¬with "Yes" or "No"closeField</script>
    </part>
    <part>
        <id>28</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>208</left>
            <top>264</top>
            <right>265</right>
            <bottom>280</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>local port</name>
        <script></script>
    </part>
    <part>
        <id>32</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>274</left>
            <top>282</top>
            <right>331</right>
            <bottom>298</bottom>
        </rect>
        <style>radiobutton</style>
        <showName> <true /> </showName>
        <highlight> <true /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <name>CrLf</name>
        <script>on mouseUpset the hilite of bg button "CrLf" to trueset the hilite of bg button "Cr" to falseset the hilite of bg button "Nothing" to falseend mouseUp</script>
    </part>
    <part>
        <id>33</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>274</left>
            <top>296</top>
            <right>331</right>
            <bottom>312</bottom>
        </rect>
        <style>radiobutton</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <name>Cr</name>
        <script>on mouseUpset the hilite of bg button "Cr" to trueset the hilite of bg button "CrLf" to falseset the hilite of bg button "Nothing" to falseend mouseUp</script>
    </part>
    <part>
        <id>34</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>274</left>
            <top>310</top>
            <right>331</right>
            <bottom>326</bottom>
        </rect>
        <style>radiobutton</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <name>Nothing</name>
        <script>on mouseUpset the hilite of bg button "Nothing" to trueset the hilite of bg button "Cr" to falseset the hilite of bg button "CrLf" to falseend mouseUp</script>
    </part>
    <part>
        <id>36</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>127</left>
            <top>284</top>
            <right>206</right>
            <bottom>304</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Send Line</name>
        <script>on mouseUpglobal connectionIDask "Line to send:" && connectionIDif it is not empty thensendhost itend ifend mouseUp</script>
    </part>
    <part>
        <id>37</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>381</left>
            <top>5</top>
            <right>508</right>
            <bottom>20</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>bold</textStyle>
        <textHeight>12</textHeight>
        <name>state</name>
        <script></script>
    </part>
    <part>
        <id>40</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>17</left>
            <top>7</top>
            <right>91</right>
            <bottom>22</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <name>Clear Display</name>
        <script>on mouseUpput empty into card field "screen"end mouseUp</script>
    </part>
    <part>
        <id>47</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>318</left>
            <top>6</top>
            <right>379</right>
            <bottom>20</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>outline</textStyle>
        <textHeight>12</textHeight>
        <name>TheTime</name>
        <script></script>
    </part>
    <content>
        <layer>background</layer>
        <id>37</id>
        <text>State=no connection</text>
    </content>
    <name></name>
    <script>on idleglobal connectionIDput the time into bg field "TheTime"--put the heapSpaceif connectionID is empty thenput "State=no connection" into field "state"exit idleend ifget TCPState(connectionID)put "State=" & it into field "state"if it is "please close" thenglobal connectionIDif connectionID is not empty thenTCPRelease connectionIDput empty into connectionIDend ifend ifif it is not "established" then exit idle-- connectionID,return,10,emptyput TCPRecvUpTo(connectionID,linefeed,10,empty) into newInputif newInput is not empty then-- put newinputset cursor to busyif first word of newinput is "PING" thensendhost "PONG"put "PONG" && word 2 of newinputput newinputexit idleend ifget second word of newinputif it is "PRIVMSG" thenget ctoc(linefeed&"{}|[]\",return&"äåöÄÅÖ",newinput)put word 1 of it & word 4 to 100 of it & return ¬after  card field "screen" of card "Chat"exit idleelse if it is "MODE" thenput ctoc(linefeed,return,newinput) after card field "screen" of card "Chat"exit idleend if-- get rect of field "screen"-- get (item 4 of it) - (item 2 of it)-- put (it div (the textHeight of field "screen"))-1 into linesAvailget card field "screen" & newInput-- put the number of lines in it into linesThere-- if linesThere > linesAvail then--   delete line 1 to (linesThere-linesAvail) of it-- end ifput ctoc(linefeed,return,it) into card field "screen"end ifend idleon openstackglobal connectionIDput empty into connectionIDend openstackon closestackglobal connectionIDif connectionID is not empty thenTCPRelease connectionIDput empty into connectionIDend ifend closestackon sendhost aglobal connectionIDTCPSend connectionID,a & returnend sendhost</script>
</background>